home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1998 #6 / 1998 CD 6 (Gul).iso / 06.dir / 00409.ls < prev    next >
Encoding:
Text File  |  1996-02-08  |  2.3 KB  |  86 lines
  1. on checkMainRollover
  2.   global gLastRolledOn, gLastRolledCast, gNumberofSpritesToRollover, gChannelOfFirstRollover, gCastOfSprite15
  3.   repeat with i = 1 to 8
  4.     put i
  5.     set lCastNumToCheck to the castNum of sprite (i + 5)
  6.     if rollOver(i + 5) = 1 then
  7.       if gLastRolledOn = i then
  8.         exit
  9.       end if
  10.       if gLastRolledOn <> 0 then
  11.         resetDoor()
  12.         set the castNum of sprite (gLastRolledOn + 5) to the number of cast gLastRolledCast
  13.         set the castNum of sprite 15 to the number of cast gCastOfSprite15
  14.       end if
  15.       set gLastRolledCast to the name of cast the castNum of sprite (i + 5)
  16.       set lCastName to char 1 to 7 of gLastRolledCast
  17.       set lDestName to "Dest" && string(i - 1)
  18.       set the castNum of sprite (i + 5) to the number of cast lCastName
  19.       if i <> 1 then
  20.         set the castNum of sprite 15 to the number of cast lDestName
  21.       end if
  22.       set gLastRolledOn to i
  23.       exit
  24.     end if
  25.   end repeat
  26.   if gLastRolledOn = 0 then
  27.     exit
  28.   end if
  29.   resetDoor()
  30.   set the castNum of sprite (gLastRolledOn + 5) to the number of cast gLastRolledCast
  31.   set the castNum of sprite 15 to the number of cast gCastOfSprite15
  32.   set gLastRolledOn to 0
  33. end
  34.  
  35. on puppetizerMan
  36.   repeat with i = 6 to 13
  37.     puppetSprite(i, 1)
  38.   end repeat
  39.   puppetSprite(15, 1)
  40. end
  41.  
  42. on MoviePuppets
  43.   repeat with i = 19 to 23
  44.     puppetSprite(i, 1)
  45.   end repeat
  46. end
  47.  
  48. on TurnOffRollovers
  49.   repeat with i = 6 to 15
  50.     puppetSprite(i, 0)
  51.   end repeat
  52. end
  53.  
  54. on VCRPanel
  55.   global gQTOn, gLastRate, gVCRChannel, gMooVChannel
  56.   puppetSprite(26, 1)
  57.   set x to the clickLoc
  58.   set lStr to getAt(x, 2)
  59.   set lLocV to value(lStr)
  60.   if lLocV < 381 then
  61.     set gLastRate to 2
  62.     set the castNum of sprite 26 to the number of cast "FFbutton"
  63.   else
  64.     if lLocV < 399 then
  65.       set gLastRate to 1
  66.       set the castNum of sprite 26 to the number of cast "PLAYbutton"
  67.     else
  68.       if lLocV < 417 then
  69.         set gLastRate to 0
  70.         set the castNum of sprite 26 to the number of cast "STOPbutton"
  71.       else
  72.         set gLastRate to -1
  73.         set the castNum of sprite 26 to the number of cast "REVbutton"
  74.       end if
  75.     end if
  76.   end if
  77.   set the movieRate of sprite 2 to gLastRate
  78.   updateStage()
  79. end
  80.  
  81. on TurnOffMovies
  82.   repeat with i = 19 to 23
  83.     puppetSprite(i, 0)
  84.   end repeat
  85. end
  86.